home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Stack Starter ß.976 / Stack Starter fl.976 / background_2295.txt < prev    next >
Encoding:
Text File  |  1988-08-03  |  48.8 KB  |  1,890 lines
  1. -- background: 2295 from stack: in.976
  2. -- bmap block id: 16109
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Stack Starter Bkgnd 1
  6. ----- HyperTalk script -----
  7. on playAll
  8.   repeat with btnid = 1 to 8
  9.     send mouseUp to card btn id btnid
  10.   end repeat
  11. end playAll
  12.  
  13. on openCard
  14.   put the short name of this card into bkgnd field "Title"
  15.   put "Prev Card:" && short name of prev card into field id 78
  16.   put "Next Card:" && short name of next card into field id 79
  17.   pass openCard
  18. end openCard
  19.  
  20. on idle
  21.   if visible of field "Mouse Loc2" is true then
  22.     put the mouseLoc into field "Mouse Loc2"
  23.   end if
  24.   send idle to stack
  25.   exit idle
  26. end idle
  27.  
  28. on openBackground
  29.   hide bkgnd btn id 121
  30.   pass openBackground
  31. end openBackground
  32.  
  33.  
  34.  
  35. -- part 54 (field)
  36. -- low flags: 81
  37. -- high flags: 0000
  38. -- rect: left=261 top=290 right=302 bottom=273
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Date
  47.  
  48.  
  49. -- part 80 (button)
  50. -- low flags: 00
  51. -- high flags: 0001
  52. -- rect: left=15 top=65 right=311 bottom=494
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 511
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Grid Cover
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.  
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 71 (button)
  69. -- low flags: 80
  70. -- high flags: 4002
  71. -- rect: left=224 top=62 right=75 bottom=366
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Mouse Loc
  80.  
  81.  
  82. -- part 42 (button)
  83. -- low flags: 00
  84. -- high flags: 8004
  85. -- rect: left=13 top=311 right=327 bottom=59
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Cover
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   set hilite of me to true
  97.   doMenu short name of me
  98.   set hilite of me to false
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 55 (button)
  104. -- low flags: 00
  105. -- high flags: 8000
  106. -- rect: left=217 top=283 right=301 bottom=286
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 204
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Î Í Ï
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 3))
  118.  
  119.   if it is 0 then
  120.     scroll L
  121.     go prev card
  122.   else if it is 1 then
  123.     scroll D
  124.     doMenu "Home"
  125.   else if it is 2 then
  126.     scroll R
  127.     go next card
  128.   end if
  129. end mouseUp
  130.  
  131.  
  132. -- part 56 (field)
  133. -- low flags: 01
  134. -- high flags: 0000
  135. -- rect: left=113 top=31 right=66 bottom=505
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 185
  140. -- text size: 26
  141. -- style flags: 10496
  142. -- line height: 34
  143. -- part name: Title
  144.  
  145.  
  146. -- part 58 (button)
  147. -- low flags: 00
  148. -- high flags: 8004
  149. -- rect: left=58 top=311 right=327 bottom=93
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Map
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   set hilite of me to true
  161.   doMenu short name of me
  162.   set hilite of me to false
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 59 (button)
  168. -- low flags: 00
  169. -- high flags: 8004
  170. -- rect: left=92 top=311 right=327 bottom=151
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Buttons
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set hilite of me to true
  182.   doMenu short name of me
  183.   set hilite of me to false
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 60 (button)
  189. -- low flags: 00
  190. -- high flags: 8004
  191. -- rect: left=150 top=311 right=327 bottom=211
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Controls
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   set hilite of me to true
  203.   doMenu short name of me
  204.   set hilite of me to false
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 61 (button)
  210. -- low flags: 00
  211. -- high flags: 8004
  212. -- rect: left=210 top=311 right=327 bottom=265
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Effects
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   set hilite of me to true
  224.   doMenu short name of me
  225.   set hilite of me to false
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 62 (button)
  231. -- low flags: 00
  232. -- high flags: 8004
  233. -- rect: left=264 top=311 right=327 bottom=310
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Fields
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   set hilite of me to true
  245.   doMenu short name of me
  246.   set hilite of me to false
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 63 (button)
  252. -- low flags: 00
  253. -- high flags: 8004
  254. -- rect: left=309 top=311 right=327 bottom=352
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Icons
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   set hilite of me to true
  266.   doMenu short name of me
  267.   set hilite of me to false
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 64 (button)
  273. -- low flags: 00
  274. -- high flags: 8004
  275. -- rect: left=351 top=311 right=327 bottom=404
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: Scripts
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   set hilite of me to true
  287.   doMenu short name of me
  288.   set hilite of me to false
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 65 (button)
  294. -- low flags: 00
  295. -- high flags: 8004
  296. -- rect: left=403 top=311 right=327 bottom=455
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: Sounds
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   set hilite of me to true
  308.   doMenu short name of me
  309.   set hilite of me to false
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 66 (button)
  315. -- low flags: 00
  316. -- high flags: 8000
  317. -- rect: left=454 top=311 right=327 bottom=494
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: Tools
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   set hilite of me to true
  329.   doMenu short name of me
  330.   set hilite of me to false
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 67 (field)
  336. -- low flags: 80
  337. -- high flags: 0000
  338. -- rect: left=223 top=62 right=74 bottom=315
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 0
  342. -- font id: 3
  343. -- text size: 9
  344. -- style flags: 10496
  345. -- line height: 12
  346. -- part name: Mouse Loc1
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   put the mouseLoc into field "Mouse Loc2"
  350.   send idle to bkgnd id 2600
  351. end mouseUp
  352.  
  353.  
  354.  
  355. -- part 68 (field)
  356. -- low flags: 81
  357. -- high flags: 0000
  358. -- rect: left=311 top=62 right=76 bottom=368
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 1
  362. -- font id: 3
  363. -- text size: 9
  364. -- style flags: 10496
  365. -- line height: 12
  366. -- part name: Mouse Loc2
  367. ----- HyperTalk script -----
  368. on mouseUp
  369.   put the mouseLoc into field "Mouse Loc2"
  370.   send idle to bkgnd id 2600
  371. end mouseUp
  372.  
  373.  
  374.  
  375. -- part 72 (button)
  376. -- low flags: 80
  377. -- high flags: 4002
  378. -- rect: left=15 top=300 right=312 bottom=251
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 0
  382. -- font id: 0
  383. -- text size: 9
  384. -- style flags: 256
  385. -- line height: 12
  386. -- part name: Prev Card: the helpful hierarchy
  387. ----- HyperTalk script -----
  388. on mouseUp
  389.  
  390. end mouseUp
  391.  
  392.  
  393.  
  394. -- part 73 (button)
  395. -- low flags: 80
  396. -- high flags: 4002
  397. -- rect: left=253 top=300 right=312 bottom=492
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 0
  401. -- font id: 0
  402. -- text size: 9
  403. -- style flags: 256
  404. -- line height: 12
  405. -- part name: Next Card: keyboard
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.  
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 78 (field)
  414. -- low flags: 81
  415. -- high flags: 0000
  416. -- rect: left=16 top=299 right=313 bottom=250
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 3
  421. -- text size: 9
  422. -- style flags: 10496
  423. -- line height: 12
  424. -- part name: 
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   scrollL
  428.   go to card char 12 to 99 of short name of me
  429. end mouseUp
  430.  
  431.  
  432.  
  433. -- part 79 (field)
  434. -- low flags: 81
  435. -- high flags: 0000
  436. -- rect: left=252 top=299 right=313 bottom=495
  437. -- title width / last selected line: 0
  438. -- icon id / first selected line: 0 / 0
  439. -- text alignment: 0
  440. -- font id: 3
  441. -- text size: 9
  442. -- style flags: 10496
  443. -- line height: 12
  444. -- part name: 
  445. ----- HyperTalk script -----
  446. on mouseUp
  447.   scrollR
  448.   go to card char 12 to 99 of short name of me
  449. end mouseUp
  450.  
  451.  
  452.  
  453. -- part 81 (button)
  454. -- low flags: 80
  455. -- high flags: 4002
  456. -- rect: left=369 top=62 right=75 bottom=493
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 0 / 0
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: FreeSpaceMon
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   freeSpace
  468. end mouseUp
  469.  
  470.  
  471.  
  472. -- part 82 (field)
  473. -- low flags: 81
  474. -- high flags: 0000
  475. -- rect: left=369 top=62 right=76 bottom=442
  476. -- title width / last selected line: 0
  477. -- icon id / first selected line: 0 / 0
  478. -- text alignment: 0
  479. -- font id: 3
  480. -- text size: 9
  481. -- style flags: 10496
  482. -- line height: 12
  483. -- part name: FreeSpaceMon1
  484.  
  485.  
  486. -- part 83 (field)
  487. -- low flags: 81
  488. -- high flags: 0000
  489. -- rect: left=435 top=62 right=76 bottom=497
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 0
  493. -- font id: 3
  494. -- text size: 9
  495. -- style flags: 10496
  496. -- line height: 12
  497. -- part name: FreeSpaceMon2
  498.  
  499.  
  500. -- part 93 (button)
  501. -- low flags: 00
  502. -- high flags: C002
  503. -- rect: left=12 top=26 right=38 bottom=494
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 1
  507. -- font id: 0
  508. -- text size: 12
  509. -- style flags: 8192
  510. -- line height: 16
  511. -- part name: A | B | C | D | E | F | G | H |  I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -
  512. ----- HyperTalk script -----
  513. on mousedown
  514.   global Fred, Nick
  515.   set hilite of me to true
  516.   if Fred <> empty then
  517.     if visible of field Fred is true then hide field Fred
  518.   end if
  519.   put the rect of the target into holder
  520.   put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  521.   put (item 3 of the rect of me) - (item 1 of the rect of me) into B
  522.   put the numToChar of (trunc(A/(B/28))+65) into Fred
  523.   if Fred is empty then
  524.   else if Fred is "[" then indexAddName
  525.   else if Fred is "\" then indexDeleteName
  526.   else
  527.     play Fred
  528.     if the commandKey is down then indexEditMode
  529.     else
  530.       put (item 1 of the clickloc-6) into horiz
  531.       put (item 2 of holder)+12 into vert
  532.       if script of field Fred is empty then
  533.         answer "Oops, nothing to display." with "Sorry"
  534.         exit mouseDown
  535.       else
  536.         get PopUpMenu(script of field Fred,0, vert, horiz)
  537.         if it is "0" then
  538.         else
  539.           put (line it of script of field Fred) into Sam
  540.           if Sam is "About Stack Starter" then go to card "the stack starter"
  541.           else if Sam is "Allover Analyzer" then go to card "the allover analyzer"
  542.           else if Sam is "Animated Icons 1" then go to card "animated icons 1"
  543.           else if Sam is "Animated Icons 2" then go to card "animated icons 2"
  544.           else if Sam is "Animated Icons 3" then go to card "animated icons 3"
  545.           else if Sam is "Animated Icons 4" then go to card "animated icons 4"
  546.           else if Sam is "Animated Icons 5" then go to card "animated icons 5"
  547.           else if Sam is "Animated Icons 6" then go to card "animated icons 6"
  548.           else if Sam is "Author" then author
  549.           else if Sam is "Button breeder" then go to card "the button breeder"
  550.           else if Sam is "Button Font Changer" then changeFont
  551.           else if Sam is "Buttons" then go to card "the button breeder"
  552.           else if Sam is "Change Button Font" then changeFont
  553.           else if Sam is "Controls" then go to card "the controls cultivator"
  554.           else if Sam is "Cover" then go to card "the stack starter"
  555.           else if Sam is "Crash" then crash
  556.           else if Sam is "Create An Icon" then MakeIcon
  557.           else if Sam is "Credits" then credits
  558.           else if Sam is "Cursors" then cursors
  559.           else if Sam is "Date & Time" then timeDate
  560.           else if Sam is "Dedications" then dedications
  561.           else if Sam is "Descriptions" then go to card "the stack starter"
  562.           else if Sam is "Digitized Sounds" then go to card "the sound sampler"
  563.           else if Sam is "DeProtect Stack" then deprotect1
  564.           else if Sam is "Disk Space Available" then diskSpaceAvail
  565.           else if Sam is "Don't Click Here" then overLoad
  566.           else if Sam is "Don't Panic" then panic
  567.           else if Sam is "Edit This Bkgnd Script" then edit script of this bkgnd
  568.           else if Sam is "Edit This Card Script" then edit script of this card
  569.           else if Sam is "Edit This Stack Script" then edit script of this stack
  570.           else if Sam is "Effects" then go to card "the effects editor"
  571.           else if Sam is "Effects Editor" then go to card "the effects editor"
  572.           else if Sam is "Explanations" then go to card "the stack starter"
  573.           else if Sam is "Field Fabricator" then go to card "the field fabricator"
  574.           else if Sam is "Fields" then go to card "the field fabricator"
  575.           else if Sam is "Fonts" then go to card "the master map"
  576.           else if Sam is "Free-Roaming Icons" then go to card "Animated Icons 1"
  577.           else if Sam is "Free Space in this stack" then freeSpace
  578.           else if Sam is "Free Space Monitor" then freeSpaceMon
  579.           else if Sam is "Gauges" then go to card "meters and gauges"
  580.           else if Sam is "Get Specs" then getSpecs
  581.           else if Sam is "Graphic Examples" then pause
  582.           else if Sam is "Graphic Techniques" then pause
  583.           else if Sam is "Handlers" then go to card "the helpful hierarchy"
  584.           else if Sam is "Heap Space Available" then heapSpaceAvail
  585.           else if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"
  586.           else if Sam is "Hidden Buttons" then ShowHiddenBtns
  587.           else if Sam is "Hidden Fields" then ShowHiddenFields
  588.           else if Sam is "Hierarchy" then go to card "the helpful hierarchy"
  589.           else if Sam is "HyperCard Version?" then HyperCardVersion
  590.           else if Sam is "HyperEdit" then answer "Hold down the return Key and the shift Key"
  591.           else if Sam is "HyperSound‚Ñ¢" then go to stack "HyperSound"
  592.           else if Sam is "Icon Ideas" then go to card "the icon initiator"
  593.           else if Sam is "Icon Initiator" then go to card "the icon initiator"
  594.           else if Sam is "Indicaters" then go to card "Pushbuttons and Switches"
  595.           else if Sam is "Inhieritance Path" then go to card "the helpful hierarchy"
  596.           else if Sam is "Icons" then go to card "the icon initiator"
  597.           else if Sam is "Install HomeCard Icon" then installHomeCardIcon
  598.           else if Sam is "Interactive Icons" then go to card "Animated Icons 1"
  599.           else if Sam is "Intro" then pause
  600.           else if Sam is "Keyboard Simulator" then go to card "Keyboard"
  601.           else if Sam is "Knobs" then go to card "knobs"
  602.           else if Sam is "Last Updated" then updated
  603.           else if Sam is "List Next & Prev Cards" then LNPC
  604.           else if Sam is "Make Icons" then MakeIcon
  605.           else if Sam is "Map" then go to card "the master map"
  606.           else if Sam is "Menus" then answer "Sorry, This feature not yet supported"
  607.           else if Sam is "Meters" then go to card "meters"
  608.           else if Sam is "Mouse Location" then mouseLocation
  609.           else if Sam is "Multi-Icon Buttons" then go to card "multi-icon buttons"
  610.           else if Sam is "Next & Prev Cards" then LNPC
  611.           else if Sam is "Organizational Chart" then go to card "the master map"
  612.           else if Sam is "Open Aplication" then openApl
  613.           else if Sam is "OverLoad" then overLoad
  614.           else if Sam is "Panic" then panic
  615.           else if Sam is "Pause" then pause
  616.           else if Sam is "Pixel Grid" then piGrid
  617.           else if Sam is "Previous & Next Card" then LNPC
  618.           else if Sam is "Pushbuttons" then go to card "Pushbuttons and Switches"
  619.           else if Sam is "Quit HyperCard" then domenu "Quit HyperCard"
  620.           else if Sam is "ResCopy" then ResCopy
  621.           else if Sam is "ResEdit" then open "ResEdit 1.1B3"
  622.           else if Sam is "Resource Editors" then answer "Look under Editors menu above"
  623.           else if Sam is "Resources" then answer "Look under Editors menu above"
  624.           else if Sam is "Script of Bkgnd..." then bkgndScript
  625.           else if Sam is "Script of Button..." then btnScript
  626.           else if Sam is "Script of Card..." then cardScript
  627.           else if Sam is "Script of Field..." then fieldScript
  628.           else if Sam is "Script of Home Stack" then HomeScript
  629.           else if Sam is "Script of Stack..." then stackScript
  630.           else if Sam is "Scripts" then answer "Sorry, This feature not yet supported"
  631.           else if Sam is "Show Heap Space" then heapSpaceAvail
  632.           else if Sam is "Show Size of This Stack" then SizeofStack
  633.           else if Sam is "Sliders" then go to card "sliders"
  634.           else if Sam is "SoundEdit‚Ñ¢" then open SoundEdit
  635.           else if Sam is "Sounds - snd Resources" then go to card "the sound sampler"
  636.           else if Sam is "Speech Synthesis" then go to card "the sound sampler"
  637.           else if Sam is "Stack Space Available" then stackSpaceAvail
  638.           else if Sam is "Switches" then go to card "Pushbuttons and Switches"
  639.           else if Sam is "Time & Date" then timeDate
  640.           else if Sam is "Titles" then pause
  641.           else if Sam is "Tools" then go to card "the allover analyzer"
  642.           else if Sam is "Version Number" then HyperCardVersion
  643.           else if Sam is "Visual Effects" then go to card "the effects editor"
  644.           else if Sam is "Volume Controls" then go to card "the controls cultivator"
  645.           else if Sam is "XCMDs" then go to card "the master map"
  646.           else if Sam is "XFCNs" then go to card "the master map"
  647.           else
  648.             put "the " before Sam
  649.             go to card Sam
  650.             if the result <> empty then answer "Sorry, this feature not yet supported."
  651.           end if
  652.         end if
  653.       end if
  654.     end if
  655.   end if
  656.   hide msg
  657. end mousedown
  658.  
  659. on indexAddName
  660.   global Fred
  661.   ask "What menu ITEM would you like to add?" with "Please type ITEM NAME here."
  662.   if it is "Please type ITEM NAME here." then
  663.   else if it is empty then
  664.   else
  665.     set cursor to 4
  666.     lockcard
  667.     put it into addName
  668.     put first char of addName into Fred
  669.     if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  670.     else
  671.       put LowerToUpper(char 1 of addName) into char 1 of addName
  672.       put script of field Fred into field Fred
  673.       put addName into line (number of lines in field Fred) + 1 of field Fred
  674.       put SortLines(field Fred, "A" ) into field Fred
  675.       put crunch(field Fred) into field Fred
  676.       set script of field Fred to field Fred
  677.     end  if
  678.   end  if
  679.   put empty into Fred
  680. end indexAddName
  681.  
  682. on indexDeleteName
  683.   global Fred
  684.   ask "Please enter the EXACT ITEM NAME to delete."
  685.   if it is empty then
  686.   else
  687.     put it into deName
  688.     answer "Delete" && quote & deName & quote & "?" with "Cancel" or "Yes"
  689.     if it is "Yes" then
  690.       set cursor to 4
  691.       lockcard
  692.       put first char of deName into Fred
  693.       if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  694.       else
  695.         put script of field Fred into field Fred
  696.         Repeat with i = 1 to (number of lines in field Fred + 1)
  697.           if line i of field Fred = dename then
  698.             delete line i of field Fred
  699.             exit repeat
  700.           end if
  701.         end repeat
  702.         --if i > (number of lines in field Fred) then
  703.         --beep 2
  704.         -- answer "You must type name exactly as it appears"
  705.         --else
  706.         put SortLines(field Fred, "A" ) into field Fred
  707.         put crunch(field Fred) into field Fred
  708.         set script of field Fred to field Fred
  709.         -- end if
  710.       end if
  711.     end if
  712.   end if
  713.   put empty into Fred
  714. end indexDeleteName
  715.  
  716. on indexEditMode
  717.   global Fred
  718.   edit script of field Fred
  719.   set cursor to 4
  720.   lockcard
  721.   put script of field Fred into field Fred
  722.   Repeat with i = 1 to number of lines in field Fred
  723.     put LowerToUpper(char 1 of line i of field Fred) into char 1 of line i of field Fred
  724.   end repeat
  725.   put SortLines(field Fred, "A" ) into field Fred
  726.   put crunch(field Fred) into field Fred
  727.   set script of field Fred to field Fred
  728. end indexEditMode
  729.  
  730. on mouseUp
  731.  
  732. end mouseUp
  733.  
  734.  
  735. -- part 94 (field)
  736. -- low flags: 81
  737. -- high flags: 0007
  738. -- rect: left=33 top=83 right=264 bottom=481
  739. -- title width / last selected line: 0
  740. -- icon id / first selected line: 0 / 0
  741. -- text alignment: 0
  742. -- font id: 3
  743. -- text size: 12
  744. -- style flags: 0
  745. -- line height: 16
  746. -- part name: A
  747. ----- HyperTalk script -----
  748. About Stack Starter
  749. Allover Analyzer
  750. Animated Icons 1
  751. Animated Icons 2
  752. Animated Icons 3
  753. Animated Icons 4
  754. Animated Icons 5
  755. Animated Icons 6
  756. Author
  757.  
  758.  
  759. -- part 95 (field)
  760. -- low flags: 81
  761. -- high flags: 0007
  762. -- rect: left=33 top=83 right=264 bottom=482
  763. -- title width / last selected line: 0
  764. -- icon id / first selected line: 0 / 0
  765. -- text alignment: 0
  766. -- font id: 3
  767. -- text size: 12
  768. -- style flags: 0
  769. -- line height: 16
  770. -- part name: B
  771. ----- HyperTalk script -----
  772. Button Breeder
  773. Button Font Changer
  774. Buttons
  775.  
  776.  
  777. -- part 96 (field)
  778. -- low flags: 81
  779. -- high flags: 0007
  780. -- rect: left=32 top=83 right=263 bottom=483
  781. -- title width / last selected line: 0
  782. -- icon id / first selected line: 0 / 0
  783. -- text alignment: 0
  784. -- font id: 3
  785. -- text size: 12
  786. -- style flags: 0
  787. -- line height: 16
  788. -- part name: C
  789. ----- HyperTalk script -----
  790. Change Button Font
  791. Controls
  792. Cover
  793. Crash
  794. Create an Icon
  795. Credits
  796. Cursors
  797.  
  798.  
  799. -- part 97 (field)
  800. -- low flags: 81
  801. -- high flags: 0007
  802. -- rect: left=32 top=83 right=264 bottom=483
  803. -- title width / last selected line: 0
  804. -- icon id / first selected line: 0 / 0
  805. -- text alignment: 0
  806. -- font id: 3
  807. -- text size: 12
  808. -- style flags: 0
  809. -- line height: 16
  810. -- part name: D
  811. ----- HyperTalk script -----
  812. Date & Time
  813. DeProtect Stack
  814. Dedications
  815. Descriptions
  816. Digitized Sounds
  817. Disk Space Available
  818. Don't Click Here
  819. Don't Panic
  820.  
  821.  
  822. -- part 98 (field)
  823. -- low flags: 81
  824. -- high flags: 0007
  825. -- rect: left=32 top=83 right=264 bottom=483
  826. -- title width / last selected line: 0
  827. -- icon id / first selected line: 0 / 0
  828. -- text alignment: 0
  829. -- font id: 3
  830. -- text size: 12
  831. -- style flags: 0
  832. -- line height: 16
  833. -- part name: E
  834. ----- HyperTalk script -----
  835. (Externals Examiner
  836. Edit This Bkgnd Script
  837. Edit This Card Script
  838. Edit This Stack Script
  839. Effects
  840. Effects Editor
  841. Explanations
  842.  
  843.  
  844. -- part 99 (field)
  845. -- low flags: 81
  846. -- high flags: 0007
  847. -- rect: left=32 top=83 right=264 bottom=483
  848. -- title width / last selected line: 0
  849. -- icon id / first selected line: 0 / 0
  850. -- text alignment: 0
  851. -- font id: 3
  852. -- text size: 12
  853. -- style flags: 0
  854. -- line height: 16
  855. -- part name: F
  856. ----- HyperTalk script -----
  857. Field Fabricator
  858. Fields
  859. Fonts
  860. Free Space Monitor
  861. Free Space in this stack
  862. Free-Roaming Icons
  863.  
  864.  
  865. -- part 100 (field)
  866. -- low flags: 81
  867. -- high flags: 0007
  868. -- rect: left=32 top=83 right=264 bottom=483
  869. -- title width / last selected line: 0
  870. -- icon id / first selected line: 0 / 0
  871. -- text alignment: 0
  872. -- font id: 3
  873. -- text size: 12
  874. -- style flags: 0
  875. -- line height: 16
  876. -- part name: G
  877. ----- HyperTalk script -----
  878. Gauges
  879. Get Specs
  880. Graphic Examples
  881. Graphic Techniques
  882.  
  883.  
  884. -- part 101 (field)
  885. -- low flags: 81
  886. -- high flags: 0007
  887. -- rect: left=32 top=82 right=264 bottom=483
  888. -- title width / last selected line: 0
  889. -- icon id / first selected line: 0 / 0
  890. -- text alignment: 0
  891. -- font id: 3
  892. -- text size: 12
  893. -- style flags: 0
  894. -- line height: 16
  895. -- part name: H
  896. ----- HyperTalk script -----
  897. (HyperTalk Compiler
  898. (HyperTalk to XCMD Converter
  899. Handlers
  900. Heap Space Available
  901. Helpful Hierarchy
  902. Hidden Buttons
  903. Hidden Fields
  904. Hierarchy
  905. HyperCard Version?
  906. HyperEdit
  907. HyperSound‚Ñ¢
  908.  
  909.  
  910. -- part 102 (field)
  911. -- low flags: 81
  912. -- high flags: 0002
  913. -- rect: left=32 top=82 right=264 bottom=483
  914. -- title width / last selected line: 0
  915. -- icon id / first selected line: 0 / 0
  916. -- text alignment: 0
  917. -- font id: 3
  918. -- text size: 12
  919. -- style flags: 0
  920. -- line height: 16
  921. -- part name: I
  922. ----- HyperTalk script -----
  923. (Incremental Compiler
  924. Icon Ideas
  925. Icon Initiator
  926. Icons
  927. Indicaters
  928. Info
  929. Inhieritance Path
  930. Install HomeCard Icon
  931. Interactive Icons
  932. Intro
  933.  
  934.  
  935. -- part 103 (field)
  936. -- low flags: 81
  937. -- high flags: 0007
  938. -- rect: left=32 top=82 right=264 bottom=483
  939. -- title width / last selected line: 0
  940. -- icon id / first selected line: 0 / 0
  941. -- text alignment: 0
  942. -- font id: 3
  943. -- text size: 12
  944. -- style flags: 0
  945. -- line height: 16
  946. -- part name: J
  947.  
  948.  
  949. -- part 104 (field)
  950. -- low flags: 81
  951. -- high flags: 0007
  952. -- rect: left=32 top=82 right=264 bottom=483
  953. -- title width / last selected line: 0
  954. -- icon id / first selected line: 0 / 0
  955. -- text alignment: 0
  956. -- font id: 3
  957. -- text size: 12
  958. -- style flags: 0
  959. -- line height: 16
  960. -- part name: K
  961. ----- HyperTalk script -----
  962. Keyboard Simulator
  963. Knobs
  964.  
  965.  
  966. -- part 105 (field)
  967. -- low flags: 81
  968. -- high flags: 0007
  969. -- rect: left=32 top=82 right=264 bottom=483
  970. -- title width / last selected line: 0
  971. -- icon id / first selected line: 0 / 0
  972. -- text alignment: 0
  973. -- font id: 3
  974. -- text size: 12
  975. -- style flags: 0
  976. -- line height: 16
  977. -- part name: L
  978. ----- HyperTalk script -----
  979. Last Updated
  980. List Next & Prev Cards
  981.  
  982.  
  983. -- part 106 (field)
  984. -- low flags: 81
  985. -- high flags: 0007
  986. -- rect: left=32 top=82 right=264 bottom=483
  987. -- title width / last selected line: 0
  988. -- icon id / first selected line: 0 / 0
  989. -- text alignment: 0
  990. -- font id: 3
  991. -- text size: 12
  992. -- style flags: 0
  993. -- line height: 16
  994. -- part name: M
  995. ----- HyperTalk script -----
  996. (Menu Editor
  997. (Menu Generator
  998. (Menu Maker
  999. (Menus
  1000. Make Icons
  1001. Map
  1002. Master Map
  1003. Meters
  1004. Mouse Location
  1005. Multi-Icon Buttons
  1006.  
  1007.  
  1008. -- part 107 (field)
  1009. -- low flags: 81
  1010. -- high flags: 0007
  1011. -- rect: left=32 top=82 right=264 bottom=483
  1012. -- title width / last selected line: 0
  1013. -- icon id / first selected line: 0 / 0
  1014. -- text alignment: 0
  1015. -- font id: 3
  1016. -- text size: 12
  1017. -- style flags: 0
  1018. -- line height: 16
  1019. -- part name: N
  1020. ----- HyperTalk script -----
  1021. Next & Prev Cards
  1022.  
  1023.  
  1024. -- part 108 (field)
  1025. -- low flags: 81
  1026. -- high flags: 0007
  1027. -- rect: left=32 top=82 right=264 bottom=483
  1028. -- title width / last selected line: 0
  1029. -- icon id / first selected line: 0 / 0
  1030. -- text alignment: 0
  1031. -- font id: 3
  1032. -- text size: 12
  1033. -- style flags: 0
  1034. -- line height: 16
  1035. -- part name: O
  1036. ----- HyperTalk script -----
  1037. Open Aplication
  1038. Organizational Chart
  1039. OverLoad
  1040.  
  1041.  
  1042. -- part 109 (field)
  1043. -- low flags: 81
  1044. -- high flags: 0007
  1045. -- rect: left=32 top=82 right=264 bottom=483
  1046. -- title width / last selected line: 0
  1047. -- icon id / first selected line: 0 / 0
  1048. -- text alignment: 0
  1049. -- font id: 3
  1050. -- text size: 12
  1051. -- style flags: 0
  1052. -- line height: 16
  1053. -- part name: P
  1054. ----- HyperTalk script -----
  1055. (Pop-Up Menu Maker
  1056. (Pull-Down Menu Maker
  1057. Panic
  1058. Pause
  1059. Pixel Grid
  1060. Previous & Next Card
  1061. Pushbuttons
  1062.  
  1063.  
  1064. -- part 110 (field)
  1065. -- low flags: 81
  1066. -- high flags: 0007
  1067. -- rect: left=32 top=82 right=264 bottom=483
  1068. -- title width / last selected line: 0
  1069. -- icon id / first selected line: 0 / 0
  1070. -- text alignment: 0
  1071. -- font id: 3
  1072. -- text size: 12
  1073. -- style flags: 0
  1074. -- line height: 16
  1075. -- part name: Q
  1076. ----- HyperTalk script -----
  1077. Quit HyperCard
  1078.  
  1079.  
  1080. -- part 111 (field)
  1081. -- low flags: 81
  1082. -- high flags: 0007
  1083. -- rect: left=32 top=82 right=264 bottom=483
  1084. -- title width / last selected line: 0
  1085. -- icon id / first selected line: 0 / 0
  1086. -- text alignment: 0
  1087. -- font id: 3
  1088. -- text size: 12
  1089. -- style flags: 0
  1090. -- line height: 16
  1091. -- part name: R
  1092. ----- HyperTalk script -----
  1093. ResCopy
  1094. ResEdit
  1095. Resource Editors
  1096. Resources
  1097.  
  1098.  
  1099. -- part 112 (field)
  1100. -- low flags: 81
  1101. -- high flags: 0007
  1102. -- rect: left=32 top=82 right=264 bottom=483
  1103. -- title width / last selected line: 0
  1104. -- icon id / first selected line: 0 / 0
  1105. -- text alignment: 0
  1106. -- font id: 3
  1107. -- text size: 12
  1108. -- style flags: 0
  1109. -- line height: 16
  1110. -- part name: S
  1111. ----- HyperTalk script -----
  1112. (Script Generator
  1113. (Script Tutor
  1114. (Smart Scripter
  1115. Script of Bkgnd...
  1116. Script of Button...
  1117. Script of Card...
  1118. Script of Field...
  1119. Script of Home Stack
  1120. Script of Stack...
  1121. Sliders
  1122. SoundEdit‚Ñ¢
  1123. Sounds - snd Resources
  1124. Speech Synthesis
  1125. Stack Space Available
  1126. Switches
  1127.  
  1128.  
  1129. -- part 113 (field)
  1130. -- low flags: 81
  1131. -- high flags: 0007
  1132. -- rect: left=32 top=82 right=264 bottom=483
  1133. -- title width / last selected line: 0
  1134. -- icon id / first selected line: 0 / 0
  1135. -- text alignment: 0
  1136. -- font id: 3
  1137. -- text size: 12
  1138. -- style flags: 0
  1139. -- line height: 16
  1140. -- part name: T
  1141. ----- HyperTalk script -----
  1142. Time & Date
  1143. Titles
  1144. Tools
  1145.  
  1146.  
  1147. -- part 114 (field)
  1148. -- low flags: 81
  1149. -- high flags: 0007
  1150. -- rect: left=32 top=82 right=264 bottom=483
  1151. -- title width / last selected line: 0
  1152. -- icon id / first selected line: 0 / 0
  1153. -- text alignment: 0
  1154. -- font id: 3
  1155. -- text size: 12
  1156. -- style flags: 0
  1157. -- line height: 16
  1158. -- part name: U
  1159. ----- HyperTalk script -----
  1160. Updated Last
  1161.  
  1162.  
  1163. -- part 115 (field)
  1164. -- low flags: 81
  1165. -- high flags: 0007
  1166. -- rect: left=32 top=82 right=264 bottom=483
  1167. -- title width / last selected line: 0
  1168. -- icon id / first selected line: 0 / 0
  1169. -- text alignment: 0
  1170. -- font id: 3
  1171. -- text size: 12
  1172. -- style flags: 0
  1173. -- line height: 16
  1174. -- part name: V
  1175. ----- HyperTalk script -----
  1176. Version Number
  1177. Visual Effects
  1178. Volume Controls
  1179.  
  1180.  
  1181. -- part 116 (field)
  1182. -- low flags: 81
  1183. -- high flags: 0007
  1184. -- rect: left=32 top=82 right=264 bottom=483
  1185. -- title width / last selected line: 0
  1186. -- icon id / first selected line: 0 / 0
  1187. -- text alignment: 0
  1188. -- font id: 3
  1189. -- text size: 12
  1190. -- style flags: 0
  1191. -- line height: 16
  1192. -- part name: W
  1193.  
  1194.  
  1195. -- part 117 (field)
  1196. -- low flags: 81
  1197. -- high flags: 0007
  1198. -- rect: left=32 top=82 right=264 bottom=483
  1199. -- title width / last selected line: 0
  1200. -- icon id / first selected line: 0 / 0
  1201. -- text alignment: 0
  1202. -- font id: 3
  1203. -- text size: 12
  1204. -- style flags: 0
  1205. -- line height: 16
  1206. -- part name: X
  1207. ----- HyperTalk script -----
  1208. (XCMD Builder
  1209. (XCMD Code Examiner
  1210. (XFCN Builder
  1211. (XFCN Code Examiner
  1212. XCMDs
  1213. XFCNs
  1214.  
  1215.  
  1216. -- part 118 (field)
  1217. -- low flags: 81
  1218. -- high flags: 0007
  1219. -- rect: left=32 top=82 right=264 bottom=483
  1220. -- title width / last selected line: 0
  1221. -- icon id / first selected line: 0 / 0
  1222. -- text alignment: 0
  1223. -- font id: 3
  1224. -- text size: 12
  1225. -- style flags: 0
  1226. -- line height: 16
  1227. -- part name: Y
  1228.  
  1229.  
  1230. -- part 119 (field)
  1231. -- low flags: 81
  1232. -- high flags: 0007
  1233. -- rect: left=32 top=82 right=264 bottom=483
  1234. -- title width / last selected line: 0
  1235. -- icon id / first selected line: 0 / 0
  1236. -- text alignment: 0
  1237. -- font id: 3
  1238. -- text size: 12
  1239. -- style flags: 0
  1240. -- line height: 16
  1241. -- part name: Z
  1242.  
  1243.  
  1244. -- part 120 (button)
  1245. -- low flags: 80
  1246. -- high flags: A002
  1247. -- rect: left=123 top=77 right=94 bottom=297
  1248. -- title width / last selected line: 0
  1249. -- icon id / first selected line: 0 / 0
  1250. -- text alignment: 1
  1251. -- font id: 0
  1252. -- text size: 12
  1253. -- style flags: 0
  1254. -- line height: 16
  1255. -- part name: Leave Background
  1256. ----- HyperTalk script -----
  1257. on mouseUp
  1258.   set the editBkgnd to false
  1259.   hide the target
  1260. end mouseUp
  1261.  
  1262.  
  1263.  
  1264.  
  1265.  
  1266. -- part 121 (button)
  1267. -- low flags: 80
  1268. -- high flags: A000
  1269. -- rect: left=201 top=224 right=274 bottom=310
  1270. -- title width / last selected line: 0
  1271. -- icon id / first selected line: 24529 / 24529
  1272. -- text alignment: 1
  1273. -- font id: 0
  1274. -- text size: 12
  1275. -- style flags: 0
  1276. -- line height: 16
  1277. -- part name: Stack Starter
  1278. ----- HyperTalk script -----
  1279. on mouseUp
  1280.   set icon of me to 14455
  1281.   play "Click"
  1282.   set icon of me to 24529
  1283.   play "Click"
  1284.   go to stack short name of me
  1285. end mouseUp
  1286.  
  1287.  
  1288.  
  1289.  
  1290. -- part 122 (field)
  1291. -- low flags: 81
  1292. -- high flags: 0007
  1293. -- rect: left=89 top=119 right=231 bottom=335
  1294. -- title width / last selected line: 0
  1295. -- icon id / first selected line: 0 / 0
  1296. -- text alignment: 0
  1297. -- font id: 3
  1298. -- text size: 12
  1299. -- style flags: 0
  1300. -- line height: 16
  1301. -- part name: fontField
  1302. ----- HyperTalk script -----
  1303. Chicago
  1304. Courier
  1305. Geneva
  1306. Helvetica
  1307. Monaco
  1308. Muda
  1309. New York
  1310. Times
  1311. Zapf Dingbats
  1312.  
  1313.  
  1314. -- part 123 (button)
  1315. -- low flags: 00
  1316. -- high flags: C002
  1317. -- rect: left=15 top=62 right=75 bottom=221
  1318. -- title width / last selected line: 0
  1319. -- icon id / first selected line: 0 / 0
  1320. -- text alignment: 1
  1321. -- font id: 3
  1322. -- text size: 9
  1323. -- style flags: 256
  1324. -- line height: 12
  1325. -- part name: Volume | Fonts | Style | Size | Height
  1326. ----- HyperTalk script -----
  1327. on mouseDown
  1328.   global ActiveField
  1329.   set hilite of me to true
  1330.   put "field id 13" into jim
  1331.   put the rect of the target into holder
  1332.   put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  1333.   put (item 3 of the rect of me)-(item 1 of the rect of me) into B
  1334.   put trunc(A/(B/5))into joe
  1335.   if Joe is empty then
  1336.   else
  1337.     put (item 1 of the clickloc-6) into horiz
  1338.     put (item 2 of holder)+13 into vert
  1339.     if joe is "0" then
  1340.       get PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)
  1341.       if it is "0" then
  1342.       else
  1343.         put word it of " 0  1  2  3  4  5  6  7" into sam
  1344.         SetVolume(sam)
  1345.         play harpsichord "c ew"
  1346.       end if
  1347.     else if Joe is "1" then
  1348.       if script of field "fontField" is empty then
  1349.         answer "Oops, no FONTS in this system." with "Sorry"
  1350.         exit mouseDown
  1351.       else
  1352.         get PopUpMenu(script of field "fontField",0, vert, horiz)
  1353.         if it is "0" then
  1354.         else
  1355.           put (line it of script of field "fontField") into Sam
  1356.           if ActiveField <> empty then
  1357.             set textFont of ActiveField to sam
  1358.           else set textFont to sam
  1359.         end if
  1360.       end if
  1361.     else if Joe is "2" then
  1362.       get PopUpMenu(" Plain ; Bold ; Italic ; Underline ; Outline ; Shadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)
  1363.       if it is "0" then
  1364.       else
  1365.         put word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into sam
  1366.         if ActiveField <> empty then
  1367.           if sam is "Plain" then set textStyle of ActiveField to plain
  1368.           else if sam is "Left" then set textAlign of ActiveField to left
  1369.           else if sam is "Center" then set textAlign of ActiveField to center
  1370.           else if sam is "Right" then set textAlign of ActiveField to right
  1371.           else if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to sam
  1372.           else
  1373.             put "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into temp
  1374.             do (temp)
  1375.           end if
  1376.         else
  1377.           if sam is "Plain" then set textStyle to sam
  1378.           else if sam is "Left" then set textAlign to left
  1379.           else if sam is "Center" then set textAlign to center
  1380.           else if sam is "Right" then set textAlign to right
  1381.           else if the textStyle is "Plain" then set textStyle to sam
  1382.           else
  1383.             put "set textStyle" && "to" && ((the textStyle) & "," && sam) into temp
  1384.             do (temp)
  1385.           end if
  1386.         end if
  1387.       end if
  1388.     else if Joe is "3" then
  1389.       get PopUpMenu(" 6 ; 8 ; 9 ; 10 ; 12 ; 14 ; 18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)
  1390.       if it is "0" then
  1391.       else
  1392.         put word it of " 6 8 9 10 12 14 18 24 36 48 52 72 " into sam
  1393.         if ActiveField <> empty then
  1394.           set textSize of ActiveField to sam
  1395.         else set textSize to sam
  1396.       end if
  1397.     else if Joe is "4" then
  1398.       get PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)
  1399.       if it is "0" then
  1400.       else
  1401.         put word it of " +1  -1  +3  -3  +5  -5  +10  -10 " into sam
  1402.         if ActiveField <> empty then
  1403.           put "set textHeight of" && ActiveField && "to (" & (textHeight of ActiveField) & (sam) & ")" into temp
  1404.           do (temp)
  1405.         end if
  1406.       end if
  1407.     end if
  1408.   end if
  1409. end mouseDown
  1410.  
  1411. on mouseUp
  1412.  
  1413. end mouseUp
  1414.  
  1415.  
  1416.  
  1417. -- part 124 (field)
  1418. -- low flags: 81
  1419. -- high flags: 0000
  1420. -- rect: left=118 top=146 right=199 bottom=198
  1421. -- title width / last selected line: 0
  1422. -- icon id / first selected line: 0 / 0
  1423. -- text alignment: 0
  1424. -- font id: 3
  1425. -- text size: 12
  1426. -- style flags: 0
  1427. -- line height: 16
  1428. -- part name: BS
  1429. ----- HyperTalk script -----
  1430. on backToChicago
  1431.   answer "Warning! This will change all buttons" with "OK" or "Cancel"
  1432.   if it is "Cancel" then exit backToChicago
  1433.   repeat with i = 1 to the number of buttons
  1434.     set textfont of btn i to chicago
  1435.   end repeat
  1436.   repeat with i = 1 to the number of bkgnd buttons
  1437.     set textfont of bkgnd btn i to chicago
  1438.   end repeat
  1439.   flash 2
  1440. end backToChicago
  1441.  
  1442. on bkgndScript
  1443.   answer "Edit this background script or another" with "Cancel" or "This" or "Another"
  1444.   if it is "This" then edit script of this background
  1445.   else if it is "Another" then
  1446.     ask "The name or id of the Background to edit." with "Type the background name or id number here."
  1447.     if it is empty then exit bkgndScript
  1448.     if it is "Type the background name or id number here." then exit bkgndScript
  1449.     put it into bName
  1450.     get first char of bName
  1451.     if it is in "1234567890" then
  1452.       put "id " before bName
  1453.     end if
  1454.     put "bkgnd " before bName
  1455.     put "edit script of" && bName
  1456.     answer "Is this background part of this stack?" with "Yes" or "No" or "Cancel"
  1457.     if it is "Yes" then edit script of bName
  1458.     if it is "No" then
  1459.       put filename("STAK") into fName
  1460.       if fName is empty then exit bkgndScript
  1461.       push card
  1462.       set cursor to 4
  1463.       lockcard
  1464.       put bName && "of stack" && fname into kludge
  1465.       go to (kludge)
  1466.       if the result <> empty then answer "Unable to find" && bName
  1467.       else
  1468.         edit script of this bkgnd
  1469.       end if
  1470.       pop card
  1471.     end if
  1472.   end if
  1473. end bkgndScript
  1474.  
  1475. on btnScript
  1476.   global eName
  1477.   ask "The name or id of button to edit." with "Type button name or id number here."
  1478.   if it is empty then
  1479.   else if it is "Type button name or id number here." then
  1480.   else
  1481.     put it into eName
  1482.     editScript
  1483.   end if
  1484. end btnScript
  1485.  
  1486. on cardScript
  1487.   answer "Edit this card script or another" with "Cancel" or "This" or "Another"
  1488.   if it is "This" then edit script of this card
  1489.   if it is "Another" then
  1490.     ask "The name or id of card to edit." with "Type card name or id number here."
  1491.     put it into cName
  1492.     if cName is empty then exit cardScript
  1493.     if cName is "Type card name or id number here." then exit cardScript
  1494.     get first char of cName
  1495.     if it is in "1234567890" then
  1496.       put "id " before cName
  1497.     end if
  1498.     put "card " before cName
  1499.     put "edit script of" && cName
  1500.     answer "Is this card part of this stack?" with "Yes" or "No" or "Cancel"
  1501.     if it is "Yes" then edit script of cName
  1502.     if it is "No" then
  1503.       put filename("STAK") into fName
  1504.       if fName is empty then exit cardScript
  1505.       push card
  1506.       set cursor to 4
  1507.       lockcard
  1508.       put cName && "of stack" && fname into kludge
  1509.       go to (kludge)
  1510.       if the result <> empty then answer "Unable to find" && cName
  1511.       else
  1512.         edit script of this card
  1513.       end if
  1514.       pop card
  1515.     end if
  1516.   end if
  1517. end cardScript
  1518.  
  1519. on deprotect1
  1520.   put filename("STAK") into fname
  1521.   if fname <> empty then
  1522.     deprotect fname
  1523.     if the result is empty then
  1524.       answer "Deprotect Successful" with "OK"
  1525.     else if the result is -44 then
  1526.       answer "Sorry, the disk is locked."
  1527.     else if the result is -49 then
  1528.       answer "Sorry, that file is busy."
  1529.     else answer "Failed: unexpected file system error: " & the result with "OK"
  1530.   end if
  1531. end deprotect1
  1532.  
  1533. on editScript
  1534.   global eName
  1535.   get first char of eName
  1536.   if it is in "1234567890" then
  1537.     put "id " before eName
  1538.   end if
  1539.   answer "Is this a card or Background button?" with "Cancel" or "Card" or "Background"
  1540.   if it is "Cancel" then exit editScript
  1541.   if it is "Card" then put "card " before eName
  1542.   else if it is "Background" then put "bkgnd " before eName
  1543.   answer "Is this button on this card?" with "This Card" or "This Stack" or "Another"
  1544.   put it into temp
  1545.   if temp is "This Card" then edit script of eName
  1546.   else
  1547.     ask "The name or id of card it's on." with "Type card name or id number here."
  1548.     put it into cName
  1549.     if cName is empty then exit editScript
  1550.     if cName is "Type card name or id number here." then exit editScript
  1551.     get first char of cName
  1552.     if temp is in "1234567890" then
  1553.       put "id " before cName
  1554.     end if
  1555.     put "card " before cName
  1556.     if temp is "This Stack" then
  1557.       go to (cName)
  1558.       if the result <> empty then answer "Unable to find" && cName
  1559.       else
  1560.         edit script of eName
  1561.       end if
  1562.     else if temp is "Another" then
  1563.       put filename("STAK") into fName
  1564.       if fName is empty then exit editScript
  1565.       push card
  1566.       set cursor to 4
  1567.       lockcard
  1568.       put cName && "of stack" && fname into kludge
  1569.       go to (kludge)
  1570.       if the result <> empty then answer "Unable to find" && cName
  1571.       else
  1572.         edit script of eName
  1573.       end if
  1574.       pop card
  1575.     end if
  1576.   end if
  1577. end editScript
  1578.  
  1579. on fieldScript
  1580.   global eName
  1581.   ask "The name or id of field to edit." with "Type field name or id number here."
  1582.   if it is empty then
  1583.   else if it is "Type field name or id number here." then
  1584.   else
  1585.     put it into eName
  1586.     editScript
  1587.   end if
  1588. end fieldScript
  1589.  
  1590. on getSpecs
  1591.   put SysEnvirons(2) into i
  1592.   if i=0 then put "This is an unknown machine." into it
  1593.   else if i=1 then put "This is a Mac 512E." into it
  1594.   else if i=2 then put "This is a Mac Plus." into it
  1595.   else if i=3 then put "This is a Mac SE." into it
  1596.   else if i=4 then put "This is a Mac II." into it
  1597.   else put "This is an unknown machine." into it
  1598.   answer it
  1599.   put SysEnvirons(4) into i
  1600.   if i=0 then put "The CPU is unknown." into it
  1601.   else if i=1 then put "The CPU is a 68000." into it
  1602.   else if i=2 then put "The CPU is a 68010." into it
  1603.   else if i=3 then put "The CPU is a 68020." into it
  1604.   answer it
  1605.   if SysEnvirons(5) then answer "This machine has a math coprocessor."
  1606.   else answer "This machine has no math coprocessor."
  1607.   get SysEnvirons(3)
  1608.   if char 1 of it <> "0" then put char 1 of it into temp
  1609.   put "The system version is " & char 2 of it & "." & char 3 of it after temp
  1610.   if char 4 of it <> "0" then put char 4 of it after temp
  1611.   answer "The system version is " & temp
  1612.   get the version
  1613.   if it is "1.0" then
  1614.     put "1.01" into temp1
  1615.   else if it is "1.1" then
  1616.     put "1.1" into temp1
  1617.   else
  1618.     if char 1 of it <> "0" then put char 1 of it into temp1
  1619.     put char 2 of it & "." & char 3 of it after temp1
  1620.     if char 4 of it <> "0" then put "." & char 4 of it after temp1
  1621.   end if
  1622.   answer "This HyperCard version is" && temp1
  1623.   get getscreen()
  1624.   put "The screen size is " & item 3 of it & " by " & item 4 of it & " pixels." into temp
  1625.   answer "The screen size is" && temp
  1626. end getSpecs
  1627.  
  1628. on getSpecsFirst
  1629.   global FastMac, BigScreen
  1630.   put empty into card field "Specs"
  1631.   lockcard
  1632.   put empty into FastMac
  1633.   put empty into BigScreen
  1634.   put SysEnvirons(2) into i
  1635.   if i=0 then put "This is an unknown machine." into temp
  1636.   else if i=1 then put "This is a Mac 512E." into temp
  1637.   else if i=2 then put "This is a Mac Plus." into temp
  1638.   else if i=3 then put "This is a Mac SE." into temp
  1639.   else if i=4 then
  1640.     put "This is a Mac II." into temp
  1641.     add 1 to FastMac
  1642.   else put "This is an unknown machine." after temp
  1643.   put return after temp
  1644.   put SysEnvirons(4) into i
  1645.   if i=0 then put "The CPU is unknown." after temp
  1646.   else if i=1 then put "The CPU is a 68000." after temp
  1647.   else if i=2 then put "The CPU is a 68010." after temp
  1648.   else if i=3 then
  1649.     put "The CPU is a 68020." after temp
  1650.     add 1 to FastMac
  1651.   end if
  1652.   put return after temp
  1653.   if SysEnvirons(5) then
  1654.     put "This machine has a math coprocessor." after temp
  1655.     add 1 to FastMac
  1656.   else put "This machine has no math coprocessor." after temp
  1657.   put return after temp
  1658.   get SysEnvirons(3)
  1659.   if char 1 of it <> "0" then put char 1 of it after temp
  1660.   put "The system version is " & char 2 of it & "." & char 3 of it after temp
  1661.   if char 4 of it <> "0" then put char 4 of it after temp
  1662.   put return after temp
  1663.   get the long version
  1664.   if it is "1.0" then
  1665.     put "1.0.1" into temp1
  1666.   else if it is "1.1" then
  1667.     put "1.1" into temp1
  1668.   else
  1669.     if char 1 of it <> "0" then put char 1 of it into temp1
  1670.     put char 2 of it & "." & char 3 of it after temp1
  1671.     if char 4 of it <> "0" then put "." & char 4 of it after temp1
  1672.   end if
  1673.   put "This HyperCard version is " & temp1 after temp
  1674.   put return after temp
  1675.   get getscreen()
  1676.   if it <> "0,0,512,342" then add 1 to BigScreen
  1677.   put "The screen size is " & item 3 of it & " by " & item 4 of it & " pixels." after temp
  1678.   put temp into card field "Specs"
  1679. end getSpecsFirst
  1680.  
  1681. on installHomeCardIcon
  1682.   put short name of this stack into temp
  1683.   set the cursor to 4
  1684.   show bkgnd btn "Stack Starter"
  1685.   choose button tool
  1686.   get the location of bkgnd btn "Stack Starter"
  1687.   click at it
  1688.   set the name of bkgnd btn "Stack Starter" to temp
  1689.   doMenu "Copy Button"
  1690.   go to stack "home"
  1691.   doMenu "Paste Button"
  1692.   choose browse tool
  1693.   pop card
  1694.   set the name of bkgnd btn temp to "Stack Starter"
  1695.   hide bkgnd btn "Stack Starter"
  1696.   answer "HomeCard Button Installed"
  1697. end installHomeCardIcon
  1698.  
  1699. on OsErr err
  1700.   -- From Dewi Williams
  1701.   if err > 0 then -- XFCN convention
  1702.     put "Parameter error with function" into errstr
  1703.   else if err is -59 then
  1704.     put "Problem during rename" into errstr
  1705.   else if err is -54 then
  1706.     put "Attempt to open locked file for writing" into errstr
  1707.   else if err is -46 then
  1708.     put "Volume locked by software" into errstr
  1709.   else if err is -45 then
  1710.     put "File locked" into errstr
  1711.   else if err is -44 then
  1712.     put "Volume locked by hardware" into errstr
  1713.   else if err is -43 then
  1714.     put "File not found" into errstr
  1715.   else if err is -37 then
  1716.     put "Bad volume or file name" into errstr
  1717.   else if err is -36 then
  1718.     put "I/O error" into errstr
  1719.   else if err is -35 then
  1720.     put "No such volume" into errstr
  1721.   else if err is -34 then
  1722.     put "Disk is full" into errstr
  1723.   else if err is -49 then
  1724.     put "File already open for writing" into errstr
  1725.   else
  1726.     put "Failed with error" && err into errstr
  1727.   end if
  1728.   answer errstr with "OK"
  1729. end OsErr
  1730.  
  1731. on ShowHiddenBtns
  1732.   global UnHidden
  1733.   answer "WARNING - this will hilite all hidden buttons!" with "OK" or "Cancel"
  1734.   if it is "Cancel" then exit ShowHiddenBtns
  1735.   repeat with i = 1 to the number of card buttons
  1736.     if the visible of card btn i is false then
  1737.       set hilite of card btn i to true
  1738.       show card btn i
  1739.       put UnHidden & return & "set hilite of card btn" && i && "to false" & return & "hide card btn" && i into UnHidden
  1740.     end if
  1741.   end repeat
  1742.   repeat with j = 1 to the number of bkgnd buttons
  1743.     if the visible of bkgnd btn j is false then
  1744.       set hilite of bkgnd btn j to true
  1745.       show bkgnd btn j
  1746.       put UnHidden & return & "set hilite of bkgnd btn" && j && "to false" & return & "hide bkgnd btn" && j into UnHidden
  1747.     end if
  1748.   end repeat
  1749.   if line 1 of UnHidden is empty then delete line 1 of UnHidden
  1750.   answer "Would you like to Re-Hide these buttons?" with "OK" or "Cancel"
  1751.   if it is "Cancel" then exit ShowHiddenBtns
  1752.   put number of lines in UnHidden into lineNum
  1753.   put 1 into done
  1754.   repeat until done >lineNum
  1755.     do line done of UnHidden
  1756.     add 1 to done
  1757.   end repeat
  1758.   put empty into UnHidden
  1759. end ShowHiddenBtns
  1760.  
  1761. on ShowHiddenFields
  1762.   global ResetHidden
  1763.   repeat with i = 1 to the number of card fields
  1764.     if the visible of card field i is false then
  1765.       show card field i
  1766.       put ResetHidden & return & "hide card field" && i into ResetHidden
  1767.     end if
  1768.   end repeat
  1769.   repeat with i = 1 to the number of bkgnd fields
  1770.     if the visible of bkgnd field i is false then
  1771.       show bkgnd field i
  1772.       put ResetHidden & return & "hide bkgnd field" && i into ResetHidden
  1773.     end if
  1774.   end repeat
  1775.   if line 1 of ResetHidden is empty then delete line 1 of ResetHidden
  1776.   answer "Would you like to Re-Hide these fields?" with "OK" or "Cancel"
  1777.   if it is "Cancel" then exit ShowHiddenFields
  1778.   put number of lines in ResetHidden into lineNum
  1779.   put 1 into done
  1780.   repeat until done >lineNum
  1781.     do line done of ResetHidden
  1782.     add 1 to done
  1783.   end repeat
  1784.   put empty into ResetHidden
  1785. end ShowHiddenFields
  1786.  
  1787. on updated
  1788.   --Thanks to: Dewi Williams
  1789.   --2227 Juniper Court, Boulder CO 80302
  1790.   --(303) 443 9038,     Delphi: DEWI
  1791.  
  1792.   answer "Get update for this stack or another?" with "Cancel" or "This Stack" or "Another"
  1793.   if it is "Cancel" then exit updated
  1794.   if it is "This Stack" then
  1795.     get the long name of this stack
  1796.     put the length of it into temp
  1797.     put char 8 to temp-1 of it into thisfile
  1798.   else
  1799.     put "Select a stack, please"
  1800.     put filename() into thisfile
  1801.     hide msg
  1802.     if thisfile is empty then exit updated
  1803.   end if
  1804.   put "Started " into info
  1805.   convert fileModDate(thisfile,true) to short date
  1806.   put it after info
  1807.   put ";  Last modified " after info
  1808.   convert fileModDate(thisfile,false) to short date
  1809.   put it after info
  1810.   answer info
  1811. end updated
  1812.  
  1813.  
  1814.  
  1815. -- part 125 (field)
  1816. -- low flags: 80
  1817. -- high flags: 0000
  1818. -- rect: left=324 top=69 right=87 bottom=346
  1819. -- title width / last selected line: 0
  1820. -- icon id / first selected line: 0 / 0
  1821. -- text alignment: 0
  1822. -- font id: 3
  1823. -- text size: 12
  1824. -- style flags: 0
  1825. -- line height: 16
  1826. -- part name: sndField
  1827. ----- HyperTalk script -----
  1828. 0
  1829. 1
  1830. 2
  1831. 3
  1832. 4
  1833. 5
  1834. 6
  1835. 7
  1836. 8
  1837. 9
  1838. A
  1839. B
  1840. Boing
  1841. C
  1842. Car
  1843. Cat
  1844. Click
  1845. Coming
  1846. Crunch
  1847. Cucu
  1848. D
  1849. Dog
  1850. DoorClose
  1851. DoorOpen
  1852. Drip
  1853. E
  1854. Evil Laugh
  1855. F
  1856. Frog
  1857. G
  1858. Get Lost
  1859. Gunshot
  1860. H
  1861. Harpsichord
  1862. Hello
  1863. Honk
  1864. I
  1865. J
  1866. K
  1867. Knock
  1868. L
  1869. M
  1870. Metal Falling
  1871. N
  1872. O
  1873. P
  1874. Q
  1875. R
  1876. S
  1877. Silence
  1878. SpinCylinder
  1879. Static
  1880. Switch
  1881. T
  1882. U
  1883. Uuh
  1884. V
  1885. W
  1886. X
  1887. Y
  1888. Yeow
  1889. Z
  1890.